home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 March / 1994-03b.d64 / ssdevice swap.pp (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  512b  |  9 lines
  1. 10 rem speedscript device swap
  2. 20 fori=52736toi+55:readx:pokei,x:z=z+x:next:ifz-5475thenprint"data error":stop
  3. 30 print"[147]l[207]"chr$(34)"speedscript*"chr$(34)",8,1"
  4. 40 print"poke2481,197:poke2854,0:poke2855,206:run";
  5. 50 fori=631to640:pokei,13:next:poke198,10:end
  6. 60 data44,8,9,201,14,208,46,32,78,10,174,1,206,236,235,18,208,3,174,2,206
  7. 70 data142,235,18,142,44,19,142,154,20,142,241,22,142,79,23,142,223,24,142
  8. 80 data227,26,142,91,27,142,161,27,169,0,32,1,30,76,105,10
  9.